Application.ModelessCmd("ze")
dim args
args = inputbox("layer=?",args,"11")
Application.ModelessCmd("l " & args)